home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / unclcarl / fbits101 / fastbit.lst < prev    next >
File List  |  1995-04-25  |  1KB  |  44 lines
  1. ' Please be certain to read the "READ_ME.1ST" file before trying to
  2. ' implement this information. I STRONGLY recommend that you DO NOT
  3. ' implement this information unless you have a PRETTY GOOD idea of
  4. ' what you are doing.
  5. ' -----------------------------------------------------------------------------
  6. ' FASTBIT.LST - This listing shows you how to locate an executable files
  7. '               "FastBit", turn it ON or turn it OFF.
  8. '
  9. ' -------------------| TURN THE FASTBIT "ON"
  10. OPEN "U",#1,file$    ! Open, Update
  11. SEEK #1,25           ! Position data pointer to byte 25 of file$
  12. OUT #1,1             ! Turn the FastBit ON ( 1 )
  13. CLOSE #1             ! Close the file
  14. '
  15. ' -------------------| TURN THE FASTBIT "OFF"
  16. OPEN "U",#1,file$
  17. SEEK #1,25
  18. OUT #1,0             ! Turn the FastBit OFF ( 0 )
  19. CLOSE #1
  20. '
  21. ' -------------------| CHECK STATUS OF FASTBIT
  22. OPEN "I",#1,file$    ! Open and READ ( "I" )
  23. SEEK #1,25
  24. x=INP(#1)            ! Get value of BYTE 25
  25. CLOSE #1
  26. '
  27. IF x=1               ! If x ( INP(#1) ) equals 1
  28.   bit=TRUE           ! the FastBit is on...
  29. ELSE                 ! else (if it's not one it should be zero)
  30.   bit=FALSE          ! the FastBit is OFF
  31. ENDIF
  32. '
  33. ' If someone's been messing w\the file you can make the last argument absolute
  34. ' by saying...
  35. '
  36. IF x=1
  37.   bit=TRUE
  38. ELSE IF x=0
  39.   bit=FALSE
  40. ELSE
  41.   bit=FALSE    !When in doubt...DON'T DO IT !!!
  42.   ALERT 1,"This files FastBit has |been set incorrectly... ",1," Bye ",a
  43. ENDIF
  44.